home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 200
- Top = 99
- Width = 376
- Height = 245
- Caption = 'Validation Test'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 16
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 368
- Height = 41
- Align = alTop
- TabOrder = 0
- object ValidateButton: TSpeedButton
- Left = 8
- Top = 8
- Width = 25
- Height = 25
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = ValidateButtonClick
- end
- object ExitButton: TSpeedButton
- Left = 40
- Top = 8
- Width = 25
- Height = 25
- Hint = 'Exit'
- Glyph.Data = {
- BE060000424DBE06000000000000360400002800000024000000120000000100
- 0800000000008802000000000000000000000000000000000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003F8F8F8F8F8
- F8F8F8F80707FF07FF07F807FFF8F8F8F8F8F8F8F8F8F8030303030303FF0404
- 0404040000F8F8F8FFFFFF0404040404F8F8F8F8F8F8F8F8F8F8FF030303FFFF
- F8FF0303030304FD05000007FFFFFF0403030303F8F8F8F8F8F8F8F8F8F80303
- 03F8F8F8F8FF030303030405FD0500FFFFFFFF040303030303030303F8FFF8F8
- F8FF030303F8FF0303FF0303030304FD05FD00FFFFFFFF040303030303030303
- F8F807F8F8FF030303F8FF0303FF030303030405FD0500FFFEFFFE0403030303
- 03030303F8FFF807F8FF030303F8FF0303FF0303030304FD05FD00FFFFFFFF04
- 0303030303030303F8F807F8F8FF030303F8FF0303FF030303030405FD0500FF
- FEFFFE040303030303030303F8FFF807F8FF030303F8FF0303FF0303030304FD
- 05FD00FFFFFFFF040303030303030303F8F807F8F8FF030303F8FF0303FF0303
- 03030405FD0500FFFEFFFE040303030303030303F8FFF807F8FF030303F8FF03
- 03FF0303030304FD05FD00FEFFFEFF040303030303030303F8F807F8F8FF0303
- 03F8FF0303FF030303030405FD0500FFFEFFFE040303030303030303F8FFF807
- F8FF030303F8FF0303FF0303030304FD05FD00FEFFFEFF040303030303030303
- F8F807F8F8FF030303F8FF0303FF030303030404040404040404040403030303
- 03030303F8FFF8FFF8FFFFFFFFF8FF0303FF0303030303030303030303030303
- 0303030303030303F8F8F8F8F8F8F8F8F8F8030303FF03030303030300000000
- 000003030303030303030303030303FFFFFFFFFFFF03030303FF030303030303
- 00FAFAFAFA00030303030303030303030303F8F8F8F8F8F8FF03030303FF0303
- 03030303000000000000030303030303030303030303F8FFFFFFFFF8FF030303
- 03FF}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = ExitButtonClick
- end
- end
- object Memo1: TMemo
- Left = 0
- Top = 41
- Width = 368
- Height = 177
- Align = alClient
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- Lines.Strings = (
- 'Validation Test illustrates how to use TValidator component.'
- 'If the speedbutton above contains checkmark, and you'
- 'cannot type in this box anything it means your program'
- 'has not been validated. Run gen.exe to get the validation'
- 'based on User Name and RandSeed parameter, then click'
- 'the checkmark button in this program, enter the name and'
- 'registration number obtained from gen and if everything is '
- 'fine, checkmark turns into X and this memo box is unlocked, '
- 'you can type here anything you wish.'
- ''
- 'If the speedbutton above contains X, by clicking this button '
- 'you are devalidating Validation Test. See readme.wri for more'
- 'information.')
- ParentFont = False
- ScrollBars = ssVertical
- TabOrder = 1
- end
- object Validator: TValidator
- RandSeed = 1
- OnVldOk = ValidatorVldOk
- OnVldFailed = ValidatorVldFailed
- Left = 264
- Top = 8
- end
- end
-